home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zj.d64 / txt.simple logic < prev   
Text File  |  2007-03-01  |  732b  |  49 lines
  1. ╒╙┼ ╙╧═┼ ╙╔═╨╠┼ ╠╧╟╔├
  2.  
  3. BY ─ICK ╦LINGENS
  4. ─UTCH ├╧═┴╠ ╒SERS ╟ROUP.
  5.  
  6. ╔N ├╧═┴╠ IT IS POSSIBLE TO USE
  7. RELATIONAL OPERATORS IN ASSIGNMENT
  8. STATEMENTS:
  9.  
  10.    A:=19
  11.    B:=87
  12.    ANSWER:=(A>B)
  13.  
  14. ╘HE LOGICAL EXPRESSION ┴>┬ IS
  15. EVALUATED INTO ITS LOGICAL VALUE: 
  16.  
  17. ┴ IS NOT GREATER THAN ┬, SO THE VALUE
  18. OF ┴>┬ IS ╞┴╠╙┼, AND ┴╬╙╫┼╥ EQUALS 0.
  19.  
  20. ╦NOWING THIS WE CAN DEFINE:
  21.  
  22.    ╞╒╬├ MAX(X,Y) ├╠╧╙┼─
  23.      ╥┼╘╒╥╬ (X>=Y)*X+(X<Y)*Y
  24.    ┼╬─╞╒╬├ MAX
  25.  
  26. ╫ITH THE SAME VALUES FOR ┴ AND ┬ WE
  27. HAVE AFTER
  28.  
  29.    ╨╥╔╬╘ MAX(A,B)
  30.  
  31. AS OUTPUT
  32.  
  33.    87
  34.  
  35. ┼╪╨╠┴╬┴╘╔╧╬
  36.  
  37. ╘HE VALUES FOR X AND Y IN THE
  38. ╞╒╬├TION ARE
  39.  
  40.    X:=19
  41.    Y:=87
  42.  
  43. ╬OW, THE (LOGICAL) VALUE OF ╪>=┘ IS 0
  44. AND THE VALUE OF ╪<┘ EQUALS 1. ╙O THE
  45. VALUE ╥┼╘╒╥╬ED BY THE FUNCTION IS:
  46.  
  47.    0 * X + 1 * Y
  48. AND THAT EQUALS 87.
  49.